(sendmail-send-it): Report invalid values of mail-from-style.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 2a196326db00bc9832a01c27bf5fa28da0c1b814..31b0a06cd3e6c1c85c84a8065226bea7e2f2c1f7 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -852,7 +852,10 @@ the user from the mailer."
                               (goto-char fullname-start))))
                         (insert ")\n"))
                        ((null mail-from-style)
-                        (insert "From: " login "\n")))))
+                        (insert "From: " login "\n"))
+                       ((eq mail-from-style 'system-default)
+                        nil)
+                       (t (error "Invalid value for `system-default'")))))
            ;; Insert an extra newline if we need it to work around
            ;; Sun's bug that swallows newlines.
            (goto-char (1+ delimline))